home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Canadian & World Encyclopedia 1998
/
The Canadian & World Encyclopedia 1998 - Disc 2.iso
/
pc
/
pb
/
profile.dir
/
00022_Script_copy the box
< prev
next >
Wrap
Text File
|
1997-07-29
|
1KB
|
45 lines
on mousedown
shift_down
end
on mouseUp
cursor 0
cursor 200
repeat with x in ["i_copy_2","i_copy_3","i_copy_1"]
set the castnum of sprite the clickon = cast x
updatestage
starttimer
repeat while the timer < 20
end repeat
end repeat
cursor 0
global clipcast, cliptitle, sub_open
global imp_it
if imp_it then set clipcast = the name of cast (the castnum of sprite 19) of castlib "text"
if the framelabel contains "issw" then set clipcast = "issue text"
-- copytoclipboard cast clipcast
set copyRightNotice = ¼
return&return&"____________________________________" & return ¼
& "from the Prime Ministers of Canada CD-ROM" & return¼
& "Copyright ⌐1996, 1997 ExCITE, Simon Fraser University"
if the selection = 0 then
set theText to the text of field clipcast
else
set theText to the selection
end if
case true of
-- need a set of cases to handle where copying from
otherwise
set theTitle to ""
end case
set the text of member "clipbuffer" to theTitle & theText & copyrightNotice
copytoclipboard cast "clipbuffer"
end